home *** CD-ROM | disk | FTP | other *** search
/ Young Minds / Young Minds Interactive CD-ROM.ISO / dungeon / patch1 < prev    next >
Encoding:
Text File  |  1987-10-10  |  44.7 KB  |  1,290 lines
  1. #! /bin/sh
  2. # This is a shell archive.  Remove anything before this line, then unpack
  3. # it by saving it into a file and typing "sh file".  To overwrite existing
  4. # files, type "sh file -c".  You can also feed this as standard input via
  5. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  6. # will see the following message at the end:
  7. #        "End of shell archive."
  8. # Contents:  README.pch Makefile.bsd Makefile.sun Makefile.sysv
  9. #   dungeon.pch
  10. # Wrapped by billr@tekred on Fri Oct  9 17:01:57 1987
  11. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  12. if test -f README.pch -a "${1}" != "-c" ; then 
  13.   echo shar: Will not over-write existing file \"README.pch\"
  14. else
  15. echo shar: Extracting \"README.pch\" \(848 characters\)
  16. sed "s/^X//" >README.pch <<'END_OF_README.pch'
  17. XOfficial patches 1 and 2 for net release of dungeon.   Oct. 9, 1987
  18. X
  19. XPatch1 contains the patches to the source files and Makefile.  Patch2
  20. Xcontains the patches to the uuencoded text file (dtext.dat.uu).  I
  21. Xhad to split this up into two patches because of the size of the
  22. Xcontext diffs to the text file.
  23. X
  24. XThe Makefile has been split into three pre-configured makefiles for
  25. Xgeneric BSD systems, System V systems and Suns.  Copy the one that
  26. Xbest matches your system into the file Makefile and edit the paths,
  27. Xetc. as needed.
  28. X
  29. XThe sources patches fix a few logic bugs in the program, but mainly
  30. Xconsist of cleanups for System V compatability.  Thanks to Dave
  31. XNewkirk (ihnp4!ihlpm!dcn) and Randy (randy@peora.ccur.com) for their
  32. Xinvaluable help in this area.
  33. X
  34. X    -Bill Randle
  35. X    Moderator, comp.sources.games
  36. X    Tektronix, Inc.
  37. X    games-request@tekred.TEK.COM
  38. END_OF_README.pch
  39. if test 848 -ne `wc -c <README.pch`; then
  40.     echo shar: \"README.pch\" unpacked with wrong size!
  41. fi
  42. # end of overwriting check
  43. fi
  44. if test -f Makefile.bsd -a "${1}" != "-c" ; then 
  45.   echo shar: Will not over-write existing file \"Makefile.bsd\"
  46. else
  47. echo shar: Extracting \"Makefile.bsd\" \(9540 characters\)
  48. sed "s/^X//" >Makefile.bsd <<'END_OF_Makefile.bsd'
  49. X# Makefile for creating dungeon
  50. X# Edit BIN DDIR and FFLAGS suitable for your system
  51. X# Also, if you are running System V change the .F.o production
  52. X#  and production for dinit.F as indicated.
  53. X#
  54. X# need SUFFIXES for System V (doesn't grok .F)
  55. X.SUFFIXES: .F
  56. X.c.o:
  57. X    cc -c $(CFLAGS) $*.c
  58. X.F.o:
  59. X    f77 -c $(FFLAGS) $*.F
  60. X# For System V use the following production instead:
  61. X#    @/lib/cpp $(CPPFLAGS) $*.F > $*.f
  62. X#    f77 -c $(FFLAGS) $*.f
  63. X#    rm $*.f
  64. X
  65. X# define SYSV if running System V or V7
  66. XCFLAGS = -O # -DSYSV -g -i
  67. XCPPFLAGS = -P
  68. X#
  69. X# f77 compiler flags for BSD Vax (and other similar machines)
  70. XFOPTS = -q # -g -Ddebug
  71. X# use -Nn650 for System V to increase default symbol table size
  72. X# also, define SYSV and no -g flag (causes runtime errors)
  73. X#FOPTS = -q -Nn650 -DSYSV # -Ddebug
  74. X# f77 compiler flags for pdp (64K split I/D)
  75. X#FOPTS = -q -I2 -L1 -i -DPDP # -Nn650 -Ddebug
  76. XFFLAGS = -O $(FOPTS)
  77. X
  78. X# flags for the loader
  79. XLDFLAGS = # -s -g -v
  80. X
  81. X# Directory path for main program - default /usr/games
  82. XBIN = /usr/games
  83. X# Directory path for data files - default is /usr/games/lib/dunlib
  84. XLIB = /usr/games/lib/dunlib
  85. XDDIR = \'/usr/games/lib/dunlib
  86. XDCDIR =\"/usr/games/lib/dunlib
  87. X# Directory path for man page - default /usr/manl/man6
  88. XMDIR = /usr/manl/man6
  89. X# userid for wizard - allows invoking game debugging tool - default 0
  90. XWIZDEF = -DWIZARDID=320
  91. X
  92. XHDRS =    advers.h clock.h curxt.h debug.h exits.h files.h flags.h\
  93. X    gamestate.h io.h mindex.h objects.h oflags.h oindex.h\
  94. X    parser.h puzzle.h rflag.h rindex.h rooms.h screen.h state.h\
  95. X    verbs.h villians.h vocab.h xpars.h xsrch.h
  96. X
  97. XFSRC =  actors.F ballop.F clockr.F demons.F\
  98. X    dgame.F dinit.F dmain.F dso1.F dso2.F\
  99. X    dso3.F dso4.F dso5.F dso6.F dso7.F\
  100. X    dsub.F dverb1.F dverb2.F gdt.F lightp.F\
  101. X    nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  102. X    rooms.F sobjs.F sverbs.F verbs.F villns.F
  103. X
  104. XCSRC =    cinit.c cio.c cspeak.c decode.c lex.c listen.c rtim.c
  105. X
  106. XOBJS =  actors.o ballop.o clockr.o demons.o\
  107. X    dgame.o dinit.o dmain.o dso1.o dso2.o\
  108. X    dso3.o dso4.o dso5.o dso6.o dso7.o\
  109. X    dsub.o dverb1.o dverb2.o gdt.o lightp.o\
  110. X    nobjs.o np.o np1.o np2.o np3.o nrooms.o objcts.o\
  111. X    rooms.o rtim.o sobjs.o sverbs.o verbs.o villns.o
  112. X
  113. XPDPOBJS = cinit.o cio.o lex.o
  114. XLISTEN = listen.o
  115. XSPEAK = cspeak.o speak.o
  116. X
  117. Xvax:    dungeon dtext.dat
  118. Xpdp:    dungpdp speak listen dtext.dat
  119. X
  120. Xdungeon: $(OBJS)
  121. X    f77 -o dungeon $(OBJS) $(LDFLAGS)
  122. X    @echo done
  123. X
  124. Xdungpdp: $(OBJS) $(PDPOBJS)
  125. X    f77 -i -s -o dungpdp $(OBJS) $(PDPOBJS)
  126. X    @echo done
  127. X
  128. Xspeak:    $(SPEAK)
  129. X    f77 -i -s -o speak $(SPEAK)
  130. X    
  131. Xspeak.o: speak.F
  132. X    f77 $(FFLAGS) -DDDIR=$(DDIR) -c speak.F
  133. X# For System V use the following instead:
  134. X#    @/lib/cpp $(CPPFLAGS) speak.F > speak.f
  135. X#    f77 $(FFLAGS) -DDDIR=$(DDIR) -c speak.f
  136. X#    rm $*.f
  137. X
  138. Xlisten:    $(LISTEN)
  139. X    cc $(CFLAGS) -o listen $(LISTEN)
  140. X
  141. Xlisten.o: listen.c
  142. X    cc $(CFLAGS) -DCINDEXFILE=$(DCDIR)/dindx.dat\" -c listen.c
  143. X
  144. Xdinit.o: dinit.F
  145. X    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.F
  146. X# For System V use the following instead:
  147. X#    @/lib/cpp $(CPPFLAGS) dinit.F > dinit.f
  148. X#    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.f
  149. X#    rm $*.f
  150. X
  151. X# uncomment the following for Suns to get around an optimizer bug
  152. X# -P means partial optimization.
  153. X#objcts.o: objcts.F
  154. X#    f77 $(FOPTS) -P -c objcts.F
  155. X
  156. Xinstall-vax: vax
  157. X    cp dungeon $(BIN)
  158. X    -mkdir $(LIB)
  159. X    cp dindx.dat dtext.dat $(LIB)
  160. X    cp dungeon.6 $(MDIR)/dungeon.6
  161. X
  162. Xinstall-pdp: pdp
  163. X    cp dungeon.sh $(BIN)
  164. X    -mkdir $(LIB)
  165. X    cp dindx.dat dtext.dat rtext.dat dungpdp $(LIB)
  166. X    cp dungeon.6 $(MDIR)/dungeon.6
  167. X
  168. Xdtext.dat: 
  169. X    ./maketxt.sh
  170. X
  171. X
  172. Xclean:
  173. X    -rm $(OBJS) Mk* core makedep eddep
  174. X
  175. Xdepend:
  176. X    grep '^#include' $(FSRC) $(CSRC) $(HDRS) | grep -v '<' | \
  177. X    sed -e 's/:[^"]*"\([^"]*\)".*/: \1/' \
  178. X        -e 's/\.c/.o/' \
  179. X        -e 's/\.F/.o/' \
  180. X        -e 's,../[a-zA-Z]*/,,' | \
  181. X    awk ' { if ($$1 != prev) { print rec; rec = $$0; prev = $$1; } \
  182. X        else { if (length(rec $$2) > 78) { print rec; rec = $$0; } \
  183. X               else rec = rec " " $$2 } } \
  184. X          END { print rec } ' > makedep
  185. X    echo '$$r makedep' >>eddep
  186. X    echo '/^# DO NOT DELETE THIS LINE/+1,$$d' >eddep
  187. X    echo '$$r makedep' >>eddep
  188. X    echo 'w' >>eddep
  189. X    cp Makefile Makefile.bak
  190. X    ed - Makefile < eddep
  191. X    rm eddep makedep
  192. X
  193. X# DO NOT DELETE THIS LINE -- make depend uses it
  194. X
  195. Xactors.o: parser.h gamestate.h rooms.h rflag.h rindex.h xsrch.h objects.h
  196. Xactors.o: oflags.h oindex.h clock.h advers.h verbs.h flags.h gamestate.h
  197. Xactors.o: debug.h rooms.h rflag.h rindex.h objects.h oflags.h oindex.h
  198. Xactors.o: villians.h flags.h
  199. Xballop.o: parser.h gamestate.h state.h rooms.h rflag.h curxt.h xpars.h
  200. Xballop.o: objects.h oflags.h oindex.h clock.h verbs.h flags.h
  201. Xclockr.o: gamestate.h state.h rooms.h rflag.h rindex.h objects.h oflags.h
  202. Xclockr.o: oindex.h clock.h curxt.h xsrch.h villians.h advers.h flags.h
  203. Xclockr.o: gamestate.h objects.h oflags.h clock.h
  204. Xdemons.o: parser.h gamestate.h objects.h oflags.h oindex.h villians.h advers.h
  205. Xdemons.o: verbs.h flags.h gamestate.h parser.h objects.h oflags.h clock.h
  206. Xdemons.o: advers.h verbs.h gamestate.h curxt.h xsrch.h objects.h oindex.h
  207. Xdemons.o: villians.h advers.h rindex.h objects.h oindex.h villians.h flags.h
  208. Xdgame.o: parser.h gamestate.h state.h io.h rooms.h rindex.h objects.h oflags.h
  209. Xdgame.o: oindex.h advers.h verbs.h flags.h parser.h villians.h gamestate.h
  210. Xdgame.o: objects.h advers.h
  211. Xdinit.o: files.h parser.h gamestate.h state.h screen.h mindex.h io.h debug.h
  212. Xdinit.o: rooms.h rflag.h rindex.h exits.h curxt.h xpars.h objects.h oindex.h
  213. Xdinit.o: clock.h villians.h advers.h flags.h
  214. Xdmain.o: parser.h gamestate.h state.h screen.h puzzle.h io.h debug.h rooms.h
  215. Xdmain.o: rflag.h rindex.h exits.h curxt.h xpars.h xsrch.h objects.h oflags.h
  216. Xdmain.o: oindex.h clock.h villians.h advers.h verbs.h flags.h
  217. Xdso1.o: gamestate.h rooms.h rflag.h objects.h oflags.h oindex.h advers.h
  218. Xdso1.o: flags.h gamestate.h objects.h oflags.h advers.h objects.h
  219. Xdso2.o: gamestate.h rooms.h rflag.h objects.h oindex.h advers.h gamestate.h
  220. Xdso2.o: state.h advers.h flags.h gamestate.h state.h clock.h advers.h flags.h
  221. Xdso3.o: rooms.h exits.h curxt.h xpars.h objects.h oflags.h
  222. Xdso4.o: objects.h oflags.h objects.h oflags.h objects.h state.h advers.h
  223. Xdso4.o: parser.h objects.h oflags.h oindex.h villians.h flags.h
  224. Xdso5.o: parser.h objects.h oflags.h verbs.h rooms.h rflag.h objects.h oflags.h
  225. Xdso5.o: advers.h objects.h
  226. Xdso6.o: rooms.h rflag.h rindex.h rindex.h flags.h
  227. Xdso7.o: rooms.h rflag.h rindex.h objects.h oflags.h flags.h flags.h
  228. Xdsub.o: gamestate.h mindex.h io.h parser.h objects.h debug.h objects.h
  229. Xdsub.o: objects.h objects.h parser.h gamestate.h state.h io.h debug.h rooms.h
  230. Xdsub.o: rflag.h rindex.h objects.h oflags.h oindex.h advers.h flags.h advers.h
  231. Xdsub.o: flags.h parser.h gamestate.h screen.h rooms.h rflag.h xsrch.h objects.h
  232. Xdsub.o: advers.h verbs.h flags.h
  233. Xdverb1.o: parser.h gamestate.h state.h objects.h oflags.h advers.h parser.h
  234. Xdverb1.o: gamestate.h rindex.h objects.h oflags.h advers.h verbs.h parser.h
  235. Xdverb1.o: gamestate.h objects.h oflags.h advers.h verbs.h parser.h gamestate.h
  236. Xdverb1.o: objects.h oflags.h verbs.h
  237. Xdverb2.o: parser.h gamestate.h state.h screen.h puzzle.h rooms.h exits.h
  238. Xdverb2.o: objects.h clock.h villians.h advers.h flags.h parser.h gamestate.h
  239. Xdverb2.o: state.h screen.h puzzle.h rooms.h exits.h objects.h clock.h
  240. Xdverb2.o: villians.h advers.h flags.h parser.h gamestate.h rooms.h rflag.h
  241. Xdverb2.o: curxt.h xsrch.h objects.h oflags.h clock.h villians.h advers.h
  242. Xdverb2.o: flags.h gamestate.h parser.h puzzle.h rooms.h rindex.h exits.h
  243. Xdverb2.o: curxt.h xpars.h xsrch.h objects.h oflags.h oindex.h advers.h flags.h
  244. Xgdt.o: parser.h gamestate.h state.h screen.h puzzle.h io.h mindex.h debug.h
  245. Xgdt.o: rooms.h rindex.h exits.h objects.h oindex.h clock.h villians.h advers.h
  246. Xgdt.o: flags.h
  247. Xlightp.o: parser.h gamestate.h objects.h oflags.h oindex.h clock.h verbs.h
  248. Xlightp.o: flags.h
  249. Xnobjs.o: parser.h gamestate.h state.h screen.h puzzle.h rooms.h rflag.h
  250. Xnobjs.o: rindex.h objects.h oflags.h oindex.h clock.h villians.h advers.h
  251. Xnobjs.o: verbs.h flags.h gamestate.h parser.h verbs.h flags.h
  252. Xnp.o: parser.h io.h debug.h parser.h xsrch.h parser.h debug.h
  253. Xnp1.o: parser.h gamestate.h debug.h objects.h oindex.h advers.h verbs.h vocab.h
  254. Xnp2.o: parser.h gamestate.h debug.h objects.h oflags.h advers.h vocab.h
  255. Xnp2.o: objects.h oflags.h vocab.h
  256. Xnp3.o: parser.h vocab.h debug.h vocab.h parser.h objects.h parser.h parser.h
  257. Xnp3.o: gamestate.h state.h objects.h oflags.h advers.h parser.h gamestate.h
  258. Xnp3.o: objects.h oflags.h advers.h
  259. Xnrooms.o: parser.h gamestate.h state.h io.h rooms.h rflag.h rindex.h objects.h
  260. Xnrooms.o: oflags.h oindex.h xsrch.h clock.h advers.h verbs.h flags.h
  261. Xnrooms.o: gamestate.h flags.h rindex.h flags.h
  262. Xobjcts.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  263. Xobjcts.o: oflags.h oindex.h clock.h advers.h verbs.h flags.h
  264. Xrooms.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  265. Xrooms.o: oflags.h oindex.h clock.h villians.h advers.h verbs.h flags.h
  266. Xsobjs.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  267. Xsobjs.o: oflags.h oindex.h clock.h villians.h advers.h verbs.h flags.h
  268. Xsverbs.o: parser.h gamestate.h state.h screen.h io.h rooms.h rflag.h rindex.h
  269. Xsverbs.o: exits.h curxt.h xpars.h xsrch.h objects.h oflags.h oindex.h clock.h
  270. Xsverbs.o: advers.h verbs.h flags.h
  271. Xverbs.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h xsrch.h
  272. Xverbs.o: objects.h oflags.h oindex.h advers.h verbs.h clock.h
  273. Xvillns.o: parser.h gamestate.h objects.h oflags.h oindex.h verbs.h flags.h
  274. Xvillns.o: parser.h gamestate.h objects.h oflags.h oindex.h verbs.h flags.h
  275. Xvillns.o: parser.h gamestate.h rindex.h objects.h oflags.h oindex.h clock.h
  276. Xvillns.o: villians.h verbs.h flags.h
  277. END_OF_Makefile.bsd
  278. if test 9540 -ne `wc -c <Makefile.bsd`; then
  279.     echo shar: \"Makefile.bsd\" unpacked with wrong size!
  280. fi
  281. # end of overwriting check
  282. fi
  283. if test -f Makefile.sun -a "${1}" != "-c" ; then 
  284.   echo shar: Will not over-write existing file \"Makefile.sun\"
  285. else
  286. echo shar: Extracting \"Makefile.sun\" \(9540 characters\)
  287. sed "s/^X//" >Makefile.sun <<'END_OF_Makefile.sun'
  288. X# Makefile for creating dungeon
  289. X# Edit BIN DDIR and FFLAGS suitable for your system
  290. X# Also, if you are running System V change the .F.o production
  291. X#  and production for dinit.F as indicated.
  292. X#
  293. X# need SUFFIXES for System V (doesn't grok .F)
  294. X.SUFFIXES: .F
  295. X.c.o:
  296. X    cc -c $(CFLAGS) $*.c
  297. X.F.o:
  298. X    f77 -c $(FFLAGS) $*.F
  299. X# For System V use the following production instead:
  300. X#    @/lib/cpp $(CPPFLAGS) $*.F > $*.f
  301. X#    f77 -c $(FFLAGS) $*.f
  302. X#    rm $*.f
  303. X
  304. X# define SYSV if running System V or V7
  305. XCFLAGS = -O # -DSYSV -g -i
  306. XCPPFLAGS = -P
  307. X#
  308. X# f77 compiler flags for BSD Vax (and other similar machines)
  309. XFOPTS = -q # -g -Ddebug
  310. X# use -Nn650 for System V to increase default symbol table size
  311. X# also, define SYSV and no -g flag (causes runtime errors)
  312. X#FOPTS = -q -Nn650 -DSYSV # -Ddebug
  313. X# f77 compiler flags for pdp (64K split I/D)
  314. X#FOPTS = -q -I2 -L1 -i -DPDP # -Nn650 -Ddebug
  315. XFFLAGS = -O $(FOPTS)
  316. X
  317. X# flags for the loader
  318. XLDFLAGS = # -s -g -v
  319. X
  320. X# Directory path for main program - default /usr/games
  321. XBIN = /usr/games
  322. X# Directory path for data files - default is /usr/games/lib/dunlib
  323. XLIB = /usr/games/lib/dunlib
  324. XDDIR = \'/usr/games/lib/dunlib
  325. XDCDIR =\"/usr/games/lib/dunlib
  326. X# Directory path for man page - default /usr/manl/man6
  327. XMDIR = /usr/manl/man6
  328. X# userid for wizard - allows invoking game debugging tool - default 0
  329. XWIZDEF = -DWIZARDID=320
  330. X
  331. XHDRS =    advers.h clock.h curxt.h debug.h exits.h files.h flags.h\
  332. X    gamestate.h io.h mindex.h objects.h oflags.h oindex.h\
  333. X    parser.h puzzle.h rflag.h rindex.h rooms.h screen.h state.h\
  334. X    verbs.h villians.h vocab.h xpars.h xsrch.h
  335. X
  336. XFSRC =  actors.F ballop.F clockr.F demons.F\
  337. X    dgame.F dinit.F dmain.F dso1.F dso2.F\
  338. X    dso3.F dso4.F dso5.F dso6.F dso7.F\
  339. X    dsub.F dverb1.F dverb2.F gdt.F lightp.F\
  340. X    nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  341. X    rooms.F sobjs.F sverbs.F verbs.F villns.F
  342. X
  343. XCSRC =    cinit.c cio.c cspeak.c decode.c lex.c listen.c rtim.c
  344. X
  345. XOBJS =  actors.o ballop.o clockr.o demons.o\
  346. X    dgame.o dinit.o dmain.o dso1.o dso2.o\
  347. X    dso3.o dso4.o dso5.o dso6.o dso7.o\
  348. X    dsub.o dverb1.o dverb2.o gdt.o lightp.o\
  349. X    nobjs.o np.o np1.o np2.o np3.o nrooms.o objcts.o\
  350. X    rooms.o rtim.o sobjs.o sverbs.o verbs.o villns.o
  351. X
  352. XPDPOBJS = cinit.o cio.o lex.o
  353. XLISTEN = listen.o
  354. XSPEAK = cspeak.o speak.o
  355. X
  356. Xvax:    dungeon dtext.dat
  357. Xpdp:    dungpdp speak listen dtext.dat
  358. X
  359. Xdungeon: $(OBJS)
  360. X    f77 -o dungeon $(OBJS) $(LDFLAGS)
  361. X    @echo done
  362. X
  363. Xdungpdp: $(OBJS) $(PDPOBJS)
  364. X    f77 -i -s -o dungpdp $(OBJS) $(PDPOBJS)
  365. X    @echo done
  366. X
  367. Xspeak:    $(SPEAK)
  368. X    f77 -i -s -o speak $(SPEAK)
  369. X    
  370. Xspeak.o: speak.F
  371. X    f77 $(FFLAGS) -DDDIR=$(DDIR) -c speak.F
  372. X# For System V use the following instead:
  373. X#    @/lib/cpp $(CPPFLAGS) speak.F > speak.f
  374. X#    f77 $(FFLAGS) -DDDIR=$(DDIR) -c speak.f
  375. X#    rm $*.f
  376. X
  377. Xlisten:    $(LISTEN)
  378. X    cc $(CFLAGS) -o listen $(LISTEN)
  379. X
  380. Xlisten.o: listen.c
  381. X    cc $(CFLAGS) -DCINDEXFILE=$(DCDIR)/dindx.dat\" -c listen.c
  382. X
  383. Xdinit.o: dinit.F
  384. X    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.F
  385. X# For System V use the following instead:
  386. X#    @/lib/cpp $(CPPFLAGS) dinit.F > dinit.f
  387. X#    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.f
  388. X#    rm $*.f
  389. X
  390. X# uncomment the following for Suns to get around an optimizer bug
  391. X# -P means partial optimization.
  392. X#objcts.o: objcts.F
  393. X#    f77 $(FOPTS) -P -c objcts.F
  394. X
  395. Xinstall-vax: vax
  396. X    cp dungeon $(BIN)
  397. X    -mkdir $(LIB)
  398. X    cp dindx.dat dtext.dat $(LIB)
  399. X    cp dungeon.6 $(MDIR)/dungeon.6
  400. X
  401. Xinstall-pdp: pdp
  402. X    cp dungeon.sh $(BIN)
  403. X    -mkdir $(LIB)
  404. X    cp dindx.dat dtext.dat rtext.dat dungpdp $(LIB)
  405. X    cp dungeon.6 $(MDIR)/dungeon.6
  406. X
  407. Xdtext.dat: 
  408. X    ./maketxt.sh
  409. X
  410. X
  411. Xclean:
  412. X    -rm $(OBJS) Mk* core makedep eddep
  413. X
  414. Xdepend:
  415. X    grep '^#include' $(FSRC) $(CSRC) $(HDRS) | grep -v '<' | \
  416. X    sed -e 's/:[^"]*"\([^"]*\)".*/: \1/' \
  417. X        -e 's/\.c/.o/' \
  418. X        -e 's/\.F/.o/' \
  419. X        -e 's,../[a-zA-Z]*/,,' | \
  420. X    awk ' { if ($$1 != prev) { print rec; rec = $$0; prev = $$1; } \
  421. X        else { if (length(rec $$2) > 78) { print rec; rec = $$0; } \
  422. X               else rec = rec " " $$2 } } \
  423. X          END { print rec } ' > makedep
  424. X    echo '$$r makedep' >>eddep
  425. X    echo '/^# DO NOT DELETE THIS LINE/+1,$$d' >eddep
  426. X    echo '$$r makedep' >>eddep
  427. X    echo 'w' >>eddep
  428. X    cp Makefile Makefile.bak
  429. X    ed - Makefile < eddep
  430. X    rm eddep makedep
  431. X
  432. X# DO NOT DELETE THIS LINE -- make depend uses it
  433. X
  434. Xactors.o: parser.h gamestate.h rooms.h rflag.h rindex.h xsrch.h objects.h
  435. Xactors.o: oflags.h oindex.h clock.h advers.h verbs.h flags.h gamestate.h
  436. Xactors.o: debug.h rooms.h rflag.h rindex.h objects.h oflags.h oindex.h
  437. Xactors.o: villians.h flags.h
  438. Xballop.o: parser.h gamestate.h state.h rooms.h rflag.h curxt.h xpars.h
  439. Xballop.o: objects.h oflags.h oindex.h clock.h verbs.h flags.h
  440. Xclockr.o: gamestate.h state.h rooms.h rflag.h rindex.h objects.h oflags.h
  441. Xclockr.o: oindex.h clock.h curxt.h xsrch.h villians.h advers.h flags.h
  442. Xclockr.o: gamestate.h objects.h oflags.h clock.h
  443. Xdemons.o: parser.h gamestate.h objects.h oflags.h oindex.h villians.h advers.h
  444. Xdemons.o: verbs.h flags.h gamestate.h parser.h objects.h oflags.h clock.h
  445. Xdemons.o: advers.h verbs.h gamestate.h curxt.h xsrch.h objects.h oindex.h
  446. Xdemons.o: villians.h advers.h rindex.h objects.h oindex.h villians.h flags.h
  447. Xdgame.o: parser.h gamestate.h state.h io.h rooms.h rindex.h objects.h oflags.h
  448. Xdgame.o: oindex.h advers.h verbs.h flags.h parser.h villians.h gamestate.h
  449. Xdgame.o: objects.h advers.h
  450. Xdinit.o: files.h parser.h gamestate.h state.h screen.h mindex.h io.h debug.h
  451. Xdinit.o: rooms.h rflag.h rindex.h exits.h curxt.h xpars.h objects.h oindex.h
  452. Xdinit.o: clock.h villians.h advers.h flags.h
  453. Xdmain.o: parser.h gamestate.h state.h screen.h puzzle.h io.h debug.h rooms.h
  454. Xdmain.o: rflag.h rindex.h exits.h curxt.h xpars.h xsrch.h objects.h oflags.h
  455. Xdmain.o: oindex.h clock.h villians.h advers.h verbs.h flags.h
  456. Xdso1.o: gamestate.h rooms.h rflag.h objects.h oflags.h oindex.h advers.h
  457. Xdso1.o: flags.h gamestate.h objects.h oflags.h advers.h objects.h
  458. Xdso2.o: gamestate.h rooms.h rflag.h objects.h oindex.h advers.h gamestate.h
  459. Xdso2.o: state.h advers.h flags.h gamestate.h state.h clock.h advers.h flags.h
  460. Xdso3.o: rooms.h exits.h curxt.h xpars.h objects.h oflags.h
  461. Xdso4.o: objects.h oflags.h objects.h oflags.h objects.h state.h advers.h
  462. Xdso4.o: parser.h objects.h oflags.h oindex.h villians.h flags.h
  463. Xdso5.o: parser.h objects.h oflags.h verbs.h rooms.h rflag.h objects.h oflags.h
  464. Xdso5.o: advers.h objects.h
  465. Xdso6.o: rooms.h rflag.h rindex.h rindex.h flags.h
  466. Xdso7.o: rooms.h rflag.h rindex.h objects.h oflags.h flags.h flags.h
  467. Xdsub.o: gamestate.h mindex.h io.h parser.h objects.h debug.h objects.h
  468. Xdsub.o: objects.h objects.h parser.h gamestate.h state.h io.h debug.h rooms.h
  469. Xdsub.o: rflag.h rindex.h objects.h oflags.h oindex.h advers.h flags.h advers.h
  470. Xdsub.o: flags.h parser.h gamestate.h screen.h rooms.h rflag.h xsrch.h objects.h
  471. Xdsub.o: advers.h verbs.h flags.h
  472. Xdverb1.o: parser.h gamestate.h state.h objects.h oflags.h advers.h parser.h
  473. Xdverb1.o: gamestate.h rindex.h objects.h oflags.h advers.h verbs.h parser.h
  474. Xdverb1.o: gamestate.h objects.h oflags.h advers.h verbs.h parser.h gamestate.h
  475. Xdverb1.o: objects.h oflags.h verbs.h
  476. Xdverb2.o: parser.h gamestate.h state.h screen.h puzzle.h rooms.h exits.h
  477. Xdverb2.o: objects.h clock.h villians.h advers.h flags.h parser.h gamestate.h
  478. Xdverb2.o: state.h screen.h puzzle.h rooms.h exits.h objects.h clock.h
  479. Xdverb2.o: villians.h advers.h flags.h parser.h gamestate.h rooms.h rflag.h
  480. Xdverb2.o: curxt.h xsrch.h objects.h oflags.h clock.h villians.h advers.h
  481. Xdverb2.o: flags.h gamestate.h parser.h puzzle.h rooms.h rindex.h exits.h
  482. Xdverb2.o: curxt.h xpars.h xsrch.h objects.h oflags.h oindex.h advers.h flags.h
  483. Xgdt.o: parser.h gamestate.h state.h screen.h puzzle.h io.h mindex.h debug.h
  484. Xgdt.o: rooms.h rindex.h exits.h objects.h oindex.h clock.h villians.h advers.h
  485. Xgdt.o: flags.h
  486. Xlightp.o: parser.h gamestate.h objects.h oflags.h oindex.h clock.h verbs.h
  487. Xlightp.o: flags.h
  488. Xnobjs.o: parser.h gamestate.h state.h screen.h puzzle.h rooms.h rflag.h
  489. Xnobjs.o: rindex.h objects.h oflags.h oindex.h clock.h villians.h advers.h
  490. Xnobjs.o: verbs.h flags.h gamestate.h parser.h verbs.h flags.h
  491. Xnp.o: parser.h io.h debug.h parser.h xsrch.h parser.h debug.h
  492. Xnp1.o: parser.h gamestate.h debug.h objects.h oindex.h advers.h verbs.h vocab.h
  493. Xnp2.o: parser.h gamestate.h debug.h objects.h oflags.h advers.h vocab.h
  494. Xnp2.o: objects.h oflags.h vocab.h
  495. Xnp3.o: parser.h vocab.h debug.h vocab.h parser.h objects.h parser.h parser.h
  496. Xnp3.o: gamestate.h state.h objects.h oflags.h advers.h parser.h gamestate.h
  497. Xnp3.o: objects.h oflags.h advers.h
  498. Xnrooms.o: parser.h gamestate.h state.h io.h rooms.h rflag.h rindex.h objects.h
  499. Xnrooms.o: oflags.h oindex.h xsrch.h clock.h advers.h verbs.h flags.h
  500. Xnrooms.o: gamestate.h flags.h rindex.h flags.h
  501. Xobjcts.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  502. Xobjcts.o: oflags.h oindex.h clock.h advers.h verbs.h flags.h
  503. Xrooms.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  504. Xrooms.o: oflags.h oindex.h clock.h villians.h advers.h verbs.h flags.h
  505. Xsobjs.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  506. Xsobjs.o: oflags.h oindex.h clock.h villians.h advers.h verbs.h flags.h
  507. Xsverbs.o: parser.h gamestate.h state.h screen.h io.h rooms.h rflag.h rindex.h
  508. Xsverbs.o: exits.h curxt.h xpars.h xsrch.h objects.h oflags.h oindex.h clock.h
  509. Xsverbs.o: advers.h verbs.h flags.h
  510. Xverbs.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h xsrch.h
  511. Xverbs.o: objects.h oflags.h oindex.h advers.h verbs.h clock.h
  512. Xvillns.o: parser.h gamestate.h objects.h oflags.h oindex.h verbs.h flags.h
  513. Xvillns.o: parser.h gamestate.h objects.h oflags.h oindex.h verbs.h flags.h
  514. Xvillns.o: parser.h gamestate.h rindex.h objects.h oflags.h oindex.h clock.h
  515. Xvillns.o: villians.h verbs.h flags.h
  516. END_OF_Makefile.sun
  517. if test 9540 -ne `wc -c <Makefile.sun`; then
  518.     echo shar: \"Makefile.sun\" unpacked with wrong size!
  519. fi
  520. # end of overwriting check
  521. fi
  522. if test -f Makefile.sysv -a "${1}" != "-c" ; then 
  523.   echo shar: Will not over-write existing file \"Makefile.sysv\"
  524. else
  525. echo shar: Extracting \"Makefile.sysv\" \(9606 characters\)
  526. sed "s/^X//" >Makefile.sysv <<'END_OF_Makefile.sysv'
  527. X# Makefile for creating dungeon
  528. X# Edit BIN DDIR and FFLAGS suitable for your system
  529. X# Also, if you are running System V change the .F.o production
  530. X#  and production for dinit.F as indicated.
  531. X#
  532. X# need SUFFIXES for System V (doesn't grok .F)
  533. X.SUFFIXES: .F
  534. X.c.o:
  535. X    cc -c $(CFLAGS) $*.c
  536. X.F.o:
  537. X#    f77 -c $(FFLAGS) $*.F
  538. X# For System V use the following production instead:
  539. X    @/lib/cpp $(CPPFLAGS) $*.F > $*.f
  540. X    f77 -c $(FFLAGS) $*.f
  541. X    rm $*.f
  542. X
  543. X# define SYSV if running System V or V7
  544. X# define SYSV *and* XELOS if running the XELOS OS
  545. XCFLAGS = -O -DSYSV # -DXELOS -g -i
  546. XCPPFLAGS = -P
  547. X#
  548. X# f77 compiler flags for BSD Vax (and other similar machines)
  549. X#FOPTS = -q # -g -Ddebug
  550. X# use -Nn650 for System V to increase default symbol table size
  551. X# also, define SYSV and no -g flag (causes runtime errors)
  552. XFOPTS = -q -Nn650 -DSYSV # -Ddebug
  553. X# f77 compiler flags for pdp (64K split I/D)
  554. X#FOPTS = -q -I2 -L1 -i -DPDP # -Nn650 -Ddebug
  555. XFFLAGS = -O $(FOPTS)
  556. X
  557. X# flags for the loader
  558. XLDFLAGS = # -s -g -v
  559. X
  560. X# Directory path for main program - default /usr/games
  561. XBIN = /usr/games
  562. X# Directory path for data files - default is /usr/games/lib/dunlib
  563. XLIB = /usr/games/lib/dunlib
  564. XDDIR = \'/usr/games/lib/dunlib
  565. XDCDIR =\"/usr/games/lib/dunlib
  566. X# Directory path for man page - default /usr/manl/man6
  567. XMDIR = /usr/manl/man6
  568. X# userid for wizard - allows invoking game debugging tool - default 0
  569. XWIZDEF = -DWIZARDID=320
  570. X
  571. XHDRS =    advers.h clock.h curxt.h debug.h exits.h files.h flags.h\
  572. X    gamestate.h io.h mindex.h objects.h oflags.h oindex.h\
  573. X    parser.h puzzle.h rflag.h rindex.h rooms.h screen.h state.h\
  574. X    verbs.h villians.h vocab.h xpars.h xsrch.h
  575. X
  576. XFSRC =  actors.F ballop.F clockr.F demons.F\
  577. X    dgame.F dinit.F dmain.F dso1.F dso2.F\
  578. X    dso3.F dso4.F dso5.F dso6.F dso7.F\
  579. X    dsub.F dverb1.F dverb2.F exit.F gdt.F lightp.F\
  580. X    nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  581. X    rooms.F sobjs.F sverbs.F verbs.F villns.F
  582. X
  583. XCSRC =    cinit.c cio.c cspeak.c decode.c lex.c listen.c rtim.c
  584. X
  585. XOBJS =  actors.o ballop.o clockr.o demons.o\
  586. X    dgame.o dinit.o dmain.o dso1.o dso2.o\
  587. X    dso3.o dso4.o dso5.o dso6.o dso7.o\
  588. X    dsub.o dverb1.o dverb2.o exit.o gdt.o lightp.o\
  589. X    nobjs.o np.o np1.o np2.o np3.o nrooms.o objcts.o\
  590. X    rooms.o rtim.o sobjs.o sverbs.o verbs.o villns.o
  591. X
  592. XPDPOBJS = cinit.o cio.o lex.o
  593. XLISTEN = listen.o
  594. XSPEAK = cspeak.o speak.o
  595. X
  596. Xvax:    dungeon dtext.dat
  597. Xpdp:    dungpdp speak listen dtext.dat
  598. X
  599. Xdungeon: $(OBJS)
  600. X    f77 -o dungeon $(OBJS) $(LDFLAGS)
  601. X    @echo done
  602. X
  603. Xdungpdp: $(OBJS) $(PDPOBJS)
  604. X    f77 -i -s -o dungpdp $(OBJS) $(PDPOBJS)
  605. X    @echo done
  606. X
  607. Xspeak:    $(SPEAK)
  608. X    f77 -i -s -o speak $(SPEAK)
  609. X    
  610. Xspeak.o: speak.F
  611. X#    f77 $(FFLAGS) -DDDIR=$(DDIR) -c speak.F
  612. X# For System V use the following instead:
  613. X    @/lib/cpp $(CPPFLAGS) speak.F > speak.f
  614. X    f77 $(FFLAGS) -DDDIR=$(DDIR) -c speak.f
  615. X    rm $*.f
  616. X
  617. Xlisten:    $(LISTEN)
  618. X    cc $(CFLAGS) -o listen $(LISTEN)
  619. X
  620. Xlisten.o: listen.c
  621. X    cc $(CFLAGS) -DCINDEXFILE=$(DCDIR)/dindx.dat\" -c listen.c
  622. X
  623. Xdinit.o: dinit.F
  624. X#    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.F
  625. X# For System V use the following instead:
  626. X    @/lib/cpp $(CPPFLAGS) dinit.F > dinit.f
  627. X    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.f
  628. X    rm $*.f
  629. X
  630. X# uncomment the following for Suns to get around an optimizer bug
  631. X# -P means partial optimization.
  632. X#objcts.o: objcts.F
  633. X#    f77 $(FOPTS) -P -c objcts.F
  634. X
  635. Xinstall-vax: vax
  636. X    cp dungeon $(BIN)
  637. X    -mkdir $(LIB)
  638. X    cp dindx.dat dtext.dat $(LIB)
  639. X    cp dungeon.6 $(MDIR)/dungeon.6
  640. X
  641. Xinstall-pdp: pdp
  642. X    cp dungeon.sh $(BIN)
  643. X    -mkdir $(LIB)
  644. X    cp dindx.dat dtext.dat rtext.dat dungpdp $(LIB)
  645. X    cp dungeon.6 $(MDIR)/dungeon.6
  646. X
  647. Xdtext.dat: 
  648. X    ./maketxt.sh
  649. X
  650. X
  651. Xclean:
  652. X    -rm $(OBJS) Mk* core makedep eddep
  653. X
  654. Xdepend:
  655. X    grep '^#include' $(FSRC) $(CSRC) $(HDRS) | grep -v '<' | \
  656. X    sed -e 's/:[^"]*"\([^"]*\)".*/: \1/' \
  657. X        -e 's/\.c/.o/' \
  658. X        -e 's/\.F/.o/' \
  659. X        -e 's,../[a-zA-Z]*/,,' | \
  660. X    awk ' { if ($$1 != prev) { print rec; rec = $$0; prev = $$1; } \
  661. X        else { if (length(rec $$2) > 78) { print rec; rec = $$0; } \
  662. X               else rec = rec " " $$2 } } \
  663. X          END { print rec } ' > makedep
  664. X    echo '$$r makedep' >>eddep
  665. X    echo '/^# DO NOT DELETE THIS LINE/+1,$$d' >eddep
  666. X    echo '$$r makedep' >>eddep
  667. X    echo 'w' >>eddep
  668. X    cp Makefile Makefile.bak
  669. X    ed - Makefile < eddep
  670. X    rm eddep makedep
  671. X
  672. X# DO NOT DELETE THIS LINE -- make depend uses it
  673. X
  674. Xactors.o: parser.h gamestate.h rooms.h rflag.h rindex.h xsrch.h objects.h
  675. Xactors.o: oflags.h oindex.h clock.h advers.h verbs.h flags.h gamestate.h
  676. Xactors.o: debug.h rooms.h rflag.h rindex.h objects.h oflags.h oindex.h
  677. Xactors.o: villians.h flags.h
  678. Xballop.o: parser.h gamestate.h state.h rooms.h rflag.h curxt.h xpars.h
  679. Xballop.o: objects.h oflags.h oindex.h clock.h verbs.h flags.h
  680. Xclockr.o: gamestate.h state.h rooms.h rflag.h rindex.h objects.h oflags.h
  681. Xclockr.o: oindex.h clock.h curxt.h xsrch.h villians.h advers.h flags.h
  682. Xclockr.o: gamestate.h objects.h oflags.h clock.h
  683. Xdemons.o: parser.h gamestate.h objects.h oflags.h oindex.h villians.h advers.h
  684. Xdemons.o: verbs.h flags.h gamestate.h parser.h objects.h oflags.h clock.h
  685. Xdemons.o: advers.h verbs.h gamestate.h curxt.h xsrch.h objects.h oindex.h
  686. Xdemons.o: villians.h advers.h rindex.h objects.h oindex.h villians.h flags.h
  687. Xdgame.o: parser.h gamestate.h state.h io.h rooms.h rindex.h objects.h oflags.h
  688. Xdgame.o: oindex.h advers.h verbs.h flags.h parser.h villians.h gamestate.h
  689. Xdgame.o: objects.h advers.h
  690. Xdinit.o: files.h parser.h gamestate.h state.h screen.h mindex.h io.h debug.h
  691. Xdinit.o: rooms.h rflag.h rindex.h exits.h curxt.h xpars.h objects.h oindex.h
  692. Xdinit.o: clock.h villians.h advers.h flags.h
  693. Xdmain.o: parser.h gamestate.h state.h screen.h puzzle.h io.h debug.h rooms.h
  694. Xdmain.o: rflag.h rindex.h exits.h curxt.h xpars.h xsrch.h objects.h oflags.h
  695. Xdmain.o: oindex.h clock.h villians.h advers.h verbs.h flags.h
  696. Xdso1.o: gamestate.h rooms.h rflag.h objects.h oflags.h oindex.h advers.h
  697. Xdso1.o: flags.h gamestate.h objects.h oflags.h advers.h objects.h
  698. Xdso2.o: gamestate.h rooms.h rflag.h objects.h oindex.h advers.h gamestate.h
  699. Xdso2.o: state.h advers.h flags.h gamestate.h state.h clock.h advers.h flags.h
  700. Xdso3.o: rooms.h exits.h curxt.h xpars.h objects.h oflags.h
  701. Xdso4.o: objects.h oflags.h objects.h oflags.h objects.h state.h advers.h
  702. Xdso4.o: parser.h objects.h oflags.h oindex.h villians.h flags.h
  703. Xdso5.o: parser.h objects.h oflags.h verbs.h rooms.h rflag.h objects.h oflags.h
  704. Xdso5.o: advers.h objects.h
  705. Xdso6.o: rooms.h rflag.h rindex.h rindex.h flags.h
  706. Xdso7.o: rooms.h rflag.h rindex.h objects.h oflags.h flags.h flags.h
  707. Xdsub.o: gamestate.h mindex.h io.h parser.h objects.h debug.h objects.h
  708. Xdsub.o: objects.h objects.h parser.h gamestate.h state.h io.h debug.h rooms.h
  709. Xdsub.o: rflag.h rindex.h objects.h oflags.h oindex.h advers.h flags.h advers.h
  710. Xdsub.o: flags.h parser.h gamestate.h screen.h rooms.h rflag.h xsrch.h objects.h
  711. Xdsub.o: advers.h verbs.h flags.h
  712. Xdverb1.o: parser.h gamestate.h state.h objects.h oflags.h advers.h parser.h
  713. Xdverb1.o: gamestate.h rindex.h objects.h oflags.h advers.h verbs.h parser.h
  714. Xdverb1.o: gamestate.h objects.h oflags.h advers.h verbs.h parser.h gamestate.h
  715. Xdverb1.o: objects.h oflags.h verbs.h
  716. Xdverb2.o: parser.h gamestate.h state.h screen.h puzzle.h rooms.h exits.h
  717. Xdverb2.o: objects.h clock.h villians.h advers.h flags.h parser.h gamestate.h
  718. Xdverb2.o: state.h screen.h puzzle.h rooms.h exits.h objects.h clock.h
  719. Xdverb2.o: villians.h advers.h flags.h parser.h gamestate.h rooms.h rflag.h
  720. Xdverb2.o: curxt.h xsrch.h objects.h oflags.h clock.h villians.h advers.h
  721. Xdverb2.o: flags.h gamestate.h parser.h puzzle.h rooms.h rindex.h exits.h
  722. Xdverb2.o: curxt.h xpars.h xsrch.h objects.h oflags.h oindex.h advers.h flags.h
  723. Xgdt.o: parser.h gamestate.h state.h screen.h puzzle.h io.h mindex.h debug.h
  724. Xgdt.o: rooms.h rindex.h exits.h objects.h oindex.h clock.h villians.h advers.h
  725. Xgdt.o: flags.h
  726. Xlightp.o: parser.h gamestate.h objects.h oflags.h oindex.h clock.h verbs.h
  727. Xlightp.o: flags.h
  728. Xnobjs.o: parser.h gamestate.h state.h screen.h puzzle.h rooms.h rflag.h
  729. Xnobjs.o: rindex.h objects.h oflags.h oindex.h clock.h villians.h advers.h
  730. Xnobjs.o: verbs.h flags.h gamestate.h parser.h verbs.h flags.h
  731. Xnp.o: parser.h io.h debug.h parser.h xsrch.h parser.h debug.h
  732. Xnp1.o: parser.h gamestate.h debug.h objects.h oindex.h advers.h verbs.h vocab.h
  733. Xnp2.o: parser.h gamestate.h debug.h objects.h oflags.h advers.h vocab.h
  734. Xnp2.o: objects.h oflags.h vocab.h
  735. Xnp3.o: parser.h vocab.h debug.h vocab.h parser.h objects.h parser.h parser.h
  736. Xnp3.o: gamestate.h state.h objects.h oflags.h advers.h parser.h gamestate.h
  737. Xnp3.o: objects.h oflags.h advers.h
  738. Xnrooms.o: parser.h gamestate.h state.h io.h rooms.h rflag.h rindex.h objects.h
  739. Xnrooms.o: oflags.h oindex.h xsrch.h clock.h advers.h verbs.h flags.h
  740. Xnrooms.o: gamestate.h flags.h rindex.h flags.h
  741. Xobjcts.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  742. Xobjcts.o: oflags.h oindex.h clock.h advers.h verbs.h flags.h
  743. Xrooms.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  744. Xrooms.o: oflags.h oindex.h clock.h villians.h advers.h verbs.h flags.h
  745. Xsobjs.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h objects.h
  746. Xsobjs.o: oflags.h oindex.h clock.h villians.h advers.h verbs.h flags.h
  747. Xsverbs.o: parser.h gamestate.h state.h screen.h io.h rooms.h rflag.h rindex.h
  748. Xsverbs.o: exits.h curxt.h xpars.h xsrch.h objects.h oflags.h oindex.h clock.h
  749. Xsverbs.o: advers.h verbs.h flags.h
  750. Xverbs.o: parser.h gamestate.h state.h rooms.h rflag.h rindex.h xsrch.h
  751. Xverbs.o: objects.h oflags.h oindex.h advers.h verbs.h clock.h
  752. Xvillns.o: parser.h gamestate.h objects.h oflags.h oindex.h verbs.h flags.h
  753. Xvillns.o: parser.h gamestate.h objects.h oflags.h oindex.h verbs.h flags.h
  754. Xvillns.o: parser.h gamestate.h rindex.h objects.h oflags.h oindex.h clock.h
  755. Xvillns.o: villians.h verbs.h flags.h
  756. END_OF_Makefile.sysv
  757. if test 9606 -ne `wc -c <Makefile.sysv`; then
  758.     echo shar: \"Makefile.sysv\" unpacked with wrong size!
  759. fi
  760. # end of overwriting check
  761. fi
  762. if test -f dungeon.pch -a "${1}" != "-c" ; then 
  763.   echo shar: Will not over-write existing file \"dungeon.pch\"
  764. else
  765. echo shar: Extracting \"dungeon.pch\" \(12478 characters\)
  766. sed "s/^X//" >dungeon.pch <<'END_OF_dungeon.pch'
  767. X*** parser.h.orig    Mon Feb  2 08:53:32 1987
  768. X--- parser.h    Fri Oct  9 08:58:57 1987
  769. X***************
  770. X*** 14,20 ****
  771. X  C
  772. X      COMMON /PV/ ACT,O1,O2,P1,P2
  773. X      INTEGER OBJVEC(2),PRPVEC(2),PVEC(5)
  774. X!     EQUIVALENCE (OBJVEC(1),O1),(PRPVEC(1),P1),(PVEC,ACT)
  775. X  C
  776. X      COMMON /SYNTAX/ VFLAG,DOBJ,DFL1,DFL2,DFW1,DFW2,
  777. X  &        IOBJ,IFL1,IFL2,IFW1,IFW2
  778. X--- 14,20 ----
  779. X  C
  780. X      COMMON /PV/ ACT,O1,O2,P1,P2
  781. X      INTEGER OBJVEC(2),PRPVEC(2),PVEC(5)
  782. X!     EQUIVALENCE (OBJVEC(1),O1),(PRPVEC(1),P1),(PVEC(1),ACT)
  783. X  C
  784. X      COMMON /SYNTAX/ VFLAG,DOBJ,DFL1,DFL2,DFW1,DFW2,
  785. X  &        IOBJ,IFL1,IFL2,IFW1,IFW2
  786. X*** /dev/null    Fri Oct  9 16:13:36 1987
  787. X--- patchlvl.h    Fri Oct  9 16:12:53 1987
  788. X***************
  789. X*** 0 ****
  790. X--- 1 ----
  791. X+ #define PATCHLEVEL 1
  792. X*** rtim.c.orig    Mon Feb  9 10:14:23 1987
  793. X--- rtim.c    Fri Oct  9 10:07:34 1987
  794. X***************
  795. X*** 4,16 ****
  796. X   * that are not available in the Unix/f77 library.
  797. X   */
  798. X  
  799. X! /* routine to get time in hours minutes and seconds */
  800. X  
  801. X  #include <sys/types.h>
  802. X  #include <sys/timeb.h>
  803. X- /* for V7 this should be <time.h> */
  804. X  #include <sys/time.h>
  805. X  
  806. X  
  807. X  long time();
  808. X  struct tm *localtime();
  809. X--- 4,23 ----
  810. X   * that are not available in the Unix/f77 library.
  811. X   */
  812. X  
  813. X! #ifdef SYSV
  814. X! #include <stdio.h>
  815. X! #endif
  816. X  
  817. X  #include <sys/types.h>
  818. X+ 
  819. X+ #ifdef SYSV
  820. X+ #include <time.h>
  821. X+ #else
  822. X  #include <sys/timeb.h>
  823. X  #include <sys/time.h>
  824. X+ #endif
  825. X  
  826. X+ /* routine to get time in hours minutes and seconds */
  827. X  
  828. X  long time();
  829. X  struct tm *localtime();
  830. X***************
  831. X*** 32,37 ****
  832. X--- 39,64 ----
  833. X      return;
  834. X  }
  835. X  
  836. X+ #ifdef SYSV
  837. X+ /* idate - return day (1-31), month (1-12) and year (AD) */
  838. X+ /*    by Dave Newkirk, ihnp4!ihlpm!dcn */
  839. X+ 
  840. X+ idate_( date )
  841. X+ long date[];
  842. X+ {
  843. X+     struct tm *t, *localtime();
  844. X+     long time(), *tloc, loc;
  845. X+ 
  846. X+     tloc = &loc;            /* get pointer to time in seconds */
  847. X+     time(tloc);
  848. X+     t = localtime(tloc);        /* get time structure filled in */
  849. X+     date[0] = t->tm_mday;
  850. X+     date[1] = t->tm_mon + 1;
  851. X+     date[2] = t->tm_year + 1900;
  852. X+ 
  853. X+ } /* end idate */
  854. X+ #endif
  855. X+ 
  856. X  /* random number initializer */
  857. X  inirnd_(seedptr)
  858. X  
  859. X***************
  860. X*** 59,61 ****
  861. X--- 86,109 ----
  862. X  
  863. X      return(rndval);
  864. X  }
  865. X+ 
  866. X+ #ifdef SYSV
  867. X+ /* thanks to Dave Newkirk, ihnp4!ihlpm!dcn for the following routines */
  868. X+ 
  869. X+ /* getuid - fortran callable getuid */
  870. X+ 
  871. X+ int
  872. X+ getuid_()
  873. X+ {
  874. X+     return (int)getuid();
  875. X+ }
  876. X+ 
  877. X+ /* unbuf - make output completely unbuffered */
  878. X+ 
  879. X+ unbuf_()
  880. X+ {
  881. X+     void setbuf();
  882. X+ 
  883. X+     setbuf(stdout, NULL);
  884. X+ }
  885. X+ #endif
  886. X*** demons.F.orig    Mon Feb  9 10:57:07 1987
  887. X--- demons.F    Fri Oct  9 15:42:21 1987
  888. X***************
  889. X*** 133,138 ****
  890. X--- 133,139 ----
  891. X      INTEGER DEF1R(3),DEF2R(4),DEF3R(5)
  892. X      INTEGER RVECTR(66),RSTATE(45)
  893. X  #include "gamestate.h"
  894. X+ #include "debug.h"
  895. X  C
  896. X  C PARSE VECTOR
  897. X  C
  898. X***************
  899. X*** 180,186 ****
  900. X      BLOW=RMISS
  901. X  C                        !ASSUME NO RESULT.
  902. X  #ifdef debug
  903. X!     PRINT 10,H,V,RMK,HFLG,OUT
  904. X  10    FORMAT(' BLOW 10-- ',3I7,L7,I7)
  905. X  #endif debug
  906. X      IF(.NOT.HFLG) GO TO 1000
  907. X--- 181,187 ----
  908. X      BLOW=RMISS
  909. X  C                        !ASSUME NO RESULT.
  910. X  #ifdef debug
  911. X!     IF(DEBUG) PRINT 10,H,V,RMK,HFLG,OUT
  912. X  10    FORMAT(' BLOW 10-- ',3I7,L7,I7)
  913. X  #endif debug
  914. X      IF(.NOT.HFLG) GO TO 1000
  915. X***************
  916. X*** 249,255 ****
  917. X  C
  918. X  2000    CONTINUE
  919. X  #ifdef debug
  920. X!     PRINT 2050,ATT,OA,DEF,OD,DWEAP
  921. X  2050    FORMAT(' BLOW 2050-- ',5I7)
  922. X  #endif debug
  923. X      IF(DEF.GT.0) GO TO 2100
  924. X--- 250,256 ----
  925. X  C
  926. X  2000    CONTINUE
  927. X  #ifdef debug
  928. X!     IF(DEBUG) PRINT 2050,ATT,OA,DEF,OD,DWEAP
  929. X  2050    FORMAT(' BLOW 2050-- ',5I7)
  930. X  #endif debug
  931. X      IF(DEF.GT.0) GO TO 2100
  932. X***************
  933. X*** 298,304 ****
  934. X      J=DV
  935. X      IF(.NOT.HFLG .AND.(DWEAP.NE.0)) J=ODESC2(DWEAP)
  936. X  #ifdef debug
  937. X!     PRINT 2650,RES,MI,I,J,MBASE
  938. X  2650    FORMAT(' BLOW 2650-- ',5I7)
  939. X  #endif debug
  940. X      CALL RSPSUB(I,J)
  941. X--- 299,305 ----
  942. X      J=DV
  943. X      IF(.NOT.HFLG .AND.(DWEAP.NE.0)) J=ODESC2(DWEAP)
  944. X  #ifdef debug
  945. X!     IF(DEBUG) PRINT 2650,RES,MI,I,J,MBASE
  946. X  2650    FORMAT(' BLOW 2650-- ',5I7)
  947. X  #endif debug
  948. X      CALL RSPSUB(I,J)
  949. X*** dmain.F.orig    Thu Feb 12 11:05:36 1987
  950. X--- dmain.F    Thu Sep 17 14:46:53 1987
  951. X***************
  952. X*** 45,51 ****
  953. X  C
  954. X  C DATA STATEMENTS FOR CONSTANT ARRAYS
  955. X  C
  956. X!     DATA VMAJ/2/,VMIN/6/,VEDIT/'A'/
  957. X  C
  958. X      DATA SDIR/o'40000'/,SIND/o'20000'/,SSTD/o'10000'/,
  959. X  &        SFLIP/o'4000'/,SDRIV/o'2000'/,SVMASK/o'777'/
  960. X--- 45,51 ----
  961. X  C
  962. X  C DATA STATEMENTS FOR CONSTANT ARRAYS
  963. X  C
  964. X!     DATA VMAJ/2/,VMIN/6/,VEDIT/'B'/
  965. X  C
  966. X      DATA SDIR/o'40000'/,SIND/o'20000'/,SSTD/o'10000'/,
  967. X  &        SFLIP/o'4000'/,SDRIV/o'2000'/,SVMASK/o'777'/
  968. X*** dso3.F.orig    Thu Sep 17 13:15:28 1987
  969. X--- dso3.F    Fri Sep 18 09:03:35 1987
  970. X***************
  971. X*** 23,29 ****
  972. X  100    I=TRAVEL(XI)
  973. X  C                        !GET ENTRY.
  974. X      XROOM1=and(I,XRMASK)
  975. X!     XTYPE=and((and(I,not(XLFLAG))/XFSHFT),XFMASK)+1
  976. X      GO TO (110,120,130,130),XTYPE
  977. X  C                        !BRANCH ON ENTRY.
  978. X      CALL BUG(10,XTYPE)
  979. X--- 23,31 ----
  980. X  100    I=TRAVEL(XI)
  981. X  C                        !GET ENTRY.
  982. X      XROOM1=and(I,XRMASK)
  983. X! c mask to 16-bits to get rid of sign extension problems with 32-bit ints
  984. X!     XXXFLG = and(not(XLFLAG), 65535)
  985. X!     XTYPE=and((and(I,XXXFLG)/XFSHFT),XFMASK)+1
  986. X      GO TO (110,120,130,130),XTYPE
  987. X  C                        !BRANCH ON ENTRY.
  988. X      CALL BUG(10,XTYPE)
  989. X*** gdt.F.orig    Thu Feb 12 11:07:59 1987
  990. X--- gdt.F    Thu Sep 17 13:43:17 1987
  991. X***************
  992. X*** 18,24 ****
  993. X      CHARACTER*2 DBGCMD(38),CMD
  994. X      INTEGER ARGTYP(38)
  995. X      LOGICAL VALID1,VALID2,VALID3
  996. X!     character*2 ldbgcmd(38)
  997. X  #include "parser.h"
  998. X  #include "gamestate.h"
  999. X  #include "state.h"
  1000. X--- 18,24 ----
  1001. X      CHARACTER*2 DBGCMD(38),CMD
  1002. X      INTEGER ARGTYP(38)
  1003. X      LOGICAL VALID1,VALID2,VALID3
  1004. X!     character*2 ldbgcm(38)
  1005. X  #include "parser.h"
  1006. X  #include "gamestate.h"
  1007. X  #include "state.h"
  1008. X***************
  1009. X*** 52,58 ****
  1010. X  &        'AF','HE','NR','NT','NC','ND','RR','RT','RC','RD',
  1011. X  &        'TK','EX','AR','AO','AA','AC','AX','AV','D2','DN',
  1012. X  &        'AN','DM','DT','AH','DP','PD','DZ','AZ'/
  1013. X!     DATA ldbgcmd/'dr','do','da','dc','dx','dh','dl','dv','df','ds',
  1014. X  &        'af','he','nr','nt','nc','nd','rr','rt','rc','rd',
  1015. X  &        'tk','ex','ar','ao','aa','ac','ax','av','d2','dn',
  1016. X  &        'an','dm','dt','ah','dp','pd','dz','az'/
  1017. X--- 52,58 ----
  1018. X  &        'AF','HE','NR','NT','NC','ND','RR','RT','RC','RD',
  1019. X  &        'TK','EX','AR','AO','AA','AC','AX','AV','D2','DN',
  1020. X  &        'AN','DM','DT','AH','DP','PD','DZ','AZ'/
  1021. X!     DATA ldbgcm/'dr','do','da','dc','dx','dh','dl','dv','df','ds',
  1022. X  &        'af','he','nr','nt','nc','nd','rr','rt','rc','rd',
  1023. X  &        'tk','ex','ar','ao','aa','ac','ax','av','d2','dn',
  1024. X  &        'an','dm','dt','ah','dp','pd','dz','az'/
  1025. X***************
  1026. X*** 91,97 ****
  1027. X        IF(CMD.EQ.DBGCMD(I)) GO TO 2300
  1028. X  C                        !FOUND?
  1029. X  C      check for lower case command, as well
  1030. X!       if(cmd .eq. ldbgcmd(i)) go to 2300
  1031. X  2100    CONTINUE
  1032. X  2200    WRITE(OUTCH,220)
  1033. X  C                        !NO, LOSE.
  1034. X--- 91,97 ----
  1035. X        IF(CMD.EQ.DBGCMD(I)) GO TO 2300
  1036. X  C                        !FOUND?
  1037. X  C      check for lower case command, as well
  1038. X!       if(cmd .eq. ldbgcm(i)) go to 2300
  1039. X  2100    CONTINUE
  1040. X  2200    WRITE(OUTCH,220)
  1041. X  C                        !NO, LOSE.
  1042. X*** np.F.orig    Tue Feb 10 17:25:07 1987
  1043. X--- np.F    Fri Oct  9 08:57:09 1987
  1044. X***************
  1045. X*** 43,49 ****
  1046. X      do 275 j=2,length
  1047. X        sysbuf(j-1:j-1) = buffer(j)
  1048. X  275    continue
  1049. X!     sysbuf(j:j) = char(0)
  1050. X      call system(sysbuf)
  1051. X      go to 5
  1052. X  
  1053. X--- 43,49 ----
  1054. X      do 275 j=2,length
  1055. X        sysbuf(j-1:j-1) = buffer(j)
  1056. X  275    continue
  1057. X!     sysbuf(length:length) = char(0)
  1058. X      call system(sysbuf)
  1059. X      go to 5
  1060. X  
  1061. X***************
  1062. X*** 148,160 ****
  1063. X      LOGICAL FUNCTION LEX(INBUF,INLNT,OUTBUF,OP,VBFLAG)
  1064. X      IMPLICIT INTEGER(A-Z)
  1065. X      CHARACTER INBUF(78),J,DLIMIT(9)
  1066. X!     INTEGER OUTBUF(40)
  1067. X      LOGICAL VBFLAG
  1068. X  #include "parser.h"
  1069. X  C
  1070. X  #include "debug.h"
  1071. X  C
  1072. X!     DATA DLIMIT/'A','Z',o'100','1','9',o'22','-','-',o'22'/
  1073. X  C
  1074. X      DO 100 I=1,40
  1075. X  C                        !CLEAR OUTPUT BUF.
  1076. X--- 148,170 ----
  1077. X      LOGICAL FUNCTION LEX(INBUF,INLNT,OUTBUF,OP,VBFLAG)
  1078. X      IMPLICIT INTEGER(A-Z)
  1079. X      CHARACTER INBUF(78),J,DLIMIT(9)
  1080. X!     INTEGER OUTBUF(40),ZLIMIT(9)
  1081. X      LOGICAL VBFLAG
  1082. X  #include "parser.h"
  1083. X  C
  1084. X  #include "debug.h"
  1085. X  C
  1086. X! c the System V compiler doesn't like octal initialization of character
  1087. X! c arrays, so the following is done for its benefit
  1088. X! c
  1089. X! c    DATA DLIMIT/'A','Z',o'100','1','9',o'22','-','-',o'22'/
  1090. X! c
  1091. X!     DATA ZLIMIT/o'101',o'132',o'100',o'61',o'71',o'22',o'55',o'55',o'22'/
  1092. X! c
  1093. X!     do 99 i=1,9
  1094. X!       dlimit(i) = char(zlimit(i))
  1095. X! c                    ! copy integers to chars
  1096. X! 99    continue
  1097. X  C
  1098. X      DO 100 I=1,40
  1099. X  C                        !CLEAR OUTPUT BUF.
  1100. X*** np1.F.orig    Mon Feb  9 11:47:32 1987
  1101. X--- np1.F    Fri Sep 25 16:58:35 1987
  1102. X***************
  1103. X*** 867,873 ****
  1104. X  C                        !GET CURRENT TOKEN.
  1105. X        LBUF2=LBUF(I+1)
  1106. X  #ifdef debug
  1107. X!       write(0,*) 'lbuf1=',lbuf1,' lbuf2=',lbuf2
  1108. X  #endif
  1109. X        IF(LBUF1.EQ.0) GO TO 1500
  1110. X  C                        !END OF BUFFER?
  1111. X--- 867,873 ----
  1112. X  C                        !GET CURRENT TOKEN.
  1113. X        LBUF2=LBUF(I+1)
  1114. X  #ifdef debug
  1115. X!       if (dflag) write(0,*) 'lbuf1=',lbuf1,' lbuf2=',lbuf2
  1116. X  #endif
  1117. X        IF(LBUF1.EQ.0) GO TO 1500
  1118. X  C                        !END OF BUFFER?
  1119. X***************
  1120. X*** 1023,1031 ****
  1121. X  C 6000--    UNIDENTIFIABLE OBJECT (INDEX INTO OVOC IS J)
  1122. X  C
  1123. X  6000    IF(OBJ.LT.0) GO TO 6100
  1124. X!     I=579
  1125. X!     IF(LIT(HERE)) I=618
  1126. X!     IF(VBFLAG) CALL RSPEAK(I)
  1127. X      RETURN
  1128. X  C
  1129. X  6100    IF(OBJ.NE.-10000) GO TO 6200
  1130. X--- 1023,1031 ----
  1131. X  C 6000--    UNIDENTIFIABLE OBJECT (INDEX INTO OVOC IS J)
  1132. X  C
  1133. X  6000    IF(OBJ.LT.0) GO TO 6100
  1134. X!     J=579
  1135. X!     IF(LIT(HERE)) J=618
  1136. X!     IF(VBFLAG) CALL RSPEAK(J)
  1137. X      RETURN
  1138. X  C
  1139. X  6100    IF(OBJ.NE.-10000) GO TO 6200
  1140. X*** np3.F.orig    Mon Feb  9 11:48:57 1987
  1141. X--- np3.F    Fri Sep 25 17:02:57 1987
  1142. X***************
  1143. X*** 24,30 ****
  1144. X      SYNMCH=.FALSE.
  1145. X  #ifdef debug
  1146. X      DFLAG=and(PRSFLG, 16).NE.0
  1147. X!     write(0,*) "synflags=",sdir,sind,sstd,sflip,sdriv,svmask
  1148. X  #endif
  1149. X      J=ACT
  1150. X  C                        !SET UP PTR TO SYNTAX.
  1151. X--- 24,30 ----
  1152. X      SYNMCH=.FALSE.
  1153. X  #ifdef debug
  1154. X      DFLAG=and(PRSFLG, 16).NE.0
  1155. X!     if(dflag) write(0,*) "synflags=",sdir,sind,sstd,sflip,sdriv,svmask
  1156. X  #endif
  1157. X      J=ACT
  1158. X  C                        !SET UP PTR TO SYNTAX.
  1159. X*** rooms.F.orig    Mon Feb  2 08:53:37 1987
  1160. X--- rooms.F    Fri Oct  9 09:00:04 1987
  1161. X***************
  1162. X*** 130,136 ****
  1163. X  4500    IF(PRSA.NE.WALKIW) RETURN
  1164. X  C                        !WALKIN?
  1165. X      IF(and(OFLAG2(DOOR),(OPENBT+TCHBT)).NE.OPENBT) RETURN
  1166. X!     OFLAG2(DOOR)=and(and(OFLAG2(DOOR),CHBT), not(OPENBT))
  1167. X      CALL RSPEAK(22)
  1168. X  C                        !SLAM AND BOLT DOOR.
  1169. X      RETURN
  1170. X--- 130,136 ----
  1171. X  4500    IF(PRSA.NE.WALKIW) RETURN
  1172. X  C                        !WALKIN?
  1173. X      IF(and(OFLAG2(DOOR),(OPENBT+TCHBT)).NE.OPENBT) RETURN
  1174. X!     OFLAG2(DOOR)=and( or(OFLAG2(DOOR),TCHBT), not(OPENBT))
  1175. X      CALL RSPEAK(22)
  1176. X  C                        !SLAM AND BOLT DOOR.
  1177. X      RETURN
  1178. X*** dinit.F.orig    Sat Feb 14 11:00:08 1987
  1179. X--- dinit.F    Fri Oct  9 16:57:08 1987
  1180. X***************
  1181. X*** 22,28 ****
  1182. X      IMPLICIT INTEGER (A-Z)
  1183. X  #ifndef PDP
  1184. X      LOGICAL PROTCT
  1185. X!     INTEGER DATARRY(3)
  1186. X  #endif PDP
  1187. X  #include "parser.h"
  1188. X  #include "gamestate.h"
  1189. X--- 22,28 ----
  1190. X      IMPLICIT INTEGER (A-Z)
  1191. X  #ifndef PDP
  1192. X      LOGICAL PROTCT
  1193. X!     INTEGER DATARR(3)
  1194. X  #endif PDP
  1195. X  #include "parser.h"
  1196. X  #include "gamestate.h"
  1197. X***************
  1198. X*** 53,58 ****
  1199. X--- 53,63 ----
  1200. X  C INIT, PAGE 2
  1201. X  C
  1202. X  #ifndef PDP
  1203. X+ #ifdef SYSV
  1204. X+ C make output unbuffered
  1205. X+     call unbuf
  1206. X+ C
  1207. X+ #endif
  1208. X  C FIRST CHECK FOR PROTECTION VIOLATION
  1209. X  C
  1210. X      IF(PROTCT(X)) GO TO 10000
  1211. X***************
  1212. X*** 432,438 ****
  1213. X--- 437,448 ----
  1214. X  C NOW RESTORE FROM EXISTING INDEX FILE.
  1215. X  C
  1216. X      OPEN(UNIT=1,file=INDXFILE,status='OLD',
  1217. X+ #ifdef XELOS
  1218. X+ &        FORM='FORMATTED',ACCESS='SEQUENTIAL',ERR=1900,recl=1)
  1219. X+ #else
  1220. X  &        FORM='FORMATTED',ACCESS='SEQUENTIAL',ERR=1900)
  1221. X+ #endif
  1222. X+     rewind(unit=1, err=1900)
  1223. X      READ(1,130) I,J,K
  1224. X  C                        !GET VERSION.
  1225. X      IF((I.NE.VMAJ).OR.(J.NE.VMIN))
  1226. X***************
  1227. X*** 441,446 ****
  1228. X--- 451,457 ----
  1229. X      OPEN(UNIT=DBCH,file=TEXTFILE,status='OLD',
  1230. X  &        FORM='UNFORMATTED',ACCESS='DIRECT',
  1231. X  &        recl=76,ERR=1950)
  1232. X+     rewind(unit=dbch, err=1950)
  1233. X  
  1234. X  #ifdef debug
  1235. X      PRINT 150
  1236. X***************
  1237. X*** 474,481 ****
  1238. X  1025    CALL ITIME(SHOUR,SMIN,SSEC)
  1239. X  C                        !GET TIME AND DATE.
  1240. X  C    CALL IDATE(I,J,K)
  1241. X!     CALL IDATE(DATARRY(1))
  1242. X!     CALL INIRND(or(DATARRY(1),or(DATARRY(2),DATARRY(3))),
  1243. X  &        or(SHOUR,or(SMIN,SSEC)))
  1244. X  C
  1245. X      WINNER=PLAYER
  1246. X--- 485,492 ----
  1247. X  1025    CALL ITIME(SHOUR,SMIN,SSEC)
  1248. X  C                        !GET TIME AND DATE.
  1249. X  C    CALL IDATE(I,J,K)
  1250. X!     CALL IDATE(DATARR(1))
  1251. X!     CALL INIRND(or(DATARR(1),or(DATARR(2),DATARR(3))),
  1252. X  &        or(SHOUR,or(SMIN,SSEC)))
  1253. X  C
  1254. X      WINNER=PLAYER
  1255. X*** dverb2.F.orig    Thu Sep 17 13:09:07 1987
  1256. X--- dverb2.F    Fri Oct  9 16:58:15 1987
  1257. X***************
  1258. X*** 82,87 ****
  1259. X--- 82,88 ----
  1260. X  #else
  1261. X      OPEN (UNIT=1,file='dsave.dat',ACCESS='SEQUENTIAL',
  1262. X  &        status='UNKNOWN',FORM='UNFORMATTED',ERR=100)
  1263. X+     rewind (unit=1, err=100)
  1264. X  C
  1265. X      CALL GTTIME(I)
  1266. X  C                        !GET TIME.
  1267. X***************
  1268. X*** 186,192 ****
  1269. X--- 187,198 ----
  1270. X      RETURN
  1271. X  #else
  1272. X      OPEN (UNIT=1,file='dsave.dat',ACCESS='SEQUENTIAL',
  1273. X+ #ifdef XELOS
  1274. X+ &        status='OLD',FORM='UNFORMATTED',ERR=100,recl=1)
  1275. X+ #else
  1276. X  &        status='OLD',FORM='UNFORMATTED',ERR=100)
  1277. X+ #endif
  1278. X+     rewind (unit=1, err=100)
  1279. X  C
  1280. X      READ(1) I,J,K
  1281. X      IF(or((I.NE.VMAJ),(J.NE.VMIN))) GO TO 200
  1282. END_OF_dungeon.pch
  1283. if test 12478 -ne `wc -c <dungeon.pch`; then
  1284.     echo shar: \"dungeon.pch\" unpacked with wrong size!
  1285. fi
  1286. # end of overwriting check
  1287. fi
  1288. echo shar: End of shell archive.
  1289. exit 0
  1290.